home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / cheap.fra < prev    next >
Internet Message Format  |  1995-03-23  |  2KB
  1. From creiman@ncsa.uiuc.edu  Sun Mar 10 14:29:09 1991
  2. Received: from bank.ecn.purdue.edu by en.ecn.purdue.edu (5.65/1.30jrs)
  3.     id AA07707; Sun, 10 Mar 91 14:29:09 -0500
  4. Received: from bardeen.ncsa.uiuc.edu by bank.ecn.purdue.edu (5.65/1.30jrs)
  5.     id AA29102; Sun, 10 Mar 91 14:29:06 -0500
  6. Received: from headroom.ncsa.uiuc.edu by bardeen.ncsa.uiuc.edu with SMTP id AA14394
  7.   (5.65a/IDA-1.4.2 for wscott@ecn.purdue.edu); Sun, 10 Mar 91 13:29:04 -0600
  8. Return-Path: <creiman@ncsa.uiuc.edu>
  9. Received: by headroom.ncsa.uiuc.edu (4.0/NCSA-4.1)
  10.     id AA24752; Sun, 10 Mar 91 13:32:57 CST
  11. Date: Sun, 10 Mar 91 13:32:57 CST
  12. From: creiman@ncsa.uiuc.edu (Chuck Reiman)
  13. Message-Id: <9103101932.AA24752@headroom.ncsa.uiuc.edu>
  14. To: wscott@ecn.purdue.edu
  15. Subject: For archives
  16. Status: OR
  17.  
  18. Hello, Scott Weston. Please post this in the graphics archives
  19. for the HP48. Name it... uh... cheap.fractal.
  20.  
  21. Techincally, it is not a fractal, since it doesn't have infinte geometry.
  22.  
  23. There isn't much to say, except it leaves you in scrolling mode when
  24. your done, and it takes about a minute to draw the whole object.
  25.  
  26. Have fun,
  27. Charlie Reiman
  28. creiman@ncsa.uiuc.edu
  29. National Center for Supercomputing 
  30.  
  31. Oh, almost forgot- This program was inspired by an old Apple ][ program
  32. that I think was called Brian's folley. Always give credit where credit
  33. is due.
  34.  
  35. %%HP: T(3)A(D)F(.);
  36. \<< PICT PURGE # 131d
  37. # 131d PDIM { # 0d
  38. # 33d } PVIEW 0 130
  39.   FOR i # 130d i
  40. R\->B DUP 3 ROLLD -
  41. DUP # 0d 2 \->LIST 3
  42. PICK # 130d 2 \->LIST
  43. TLINE # 130d SWAP 2
  44. \->LIST SWAP # 0d
  45. SWAP 2 \->LIST TLINE
  46.   NEXT { } PVIEW
  47. \>>
  48.  
  49.  
  50.